home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 April
/
1990-04.d64
/
ml programming
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
780b
|
26 lines
5 print"[147][144]":poke53280,12:poke53281,12
100 data 169,0,133,144,162,1,32,198,255,169,0,141,1,35
110 data 169,0,141,2,35,165,144,208,89,32,228,255
120 data 201,13,208,54,32,210,255,238,1,35,173,1,35
130 data 201,22,144,227,160,0,185,116,32,32,210,255
140 data 200,192,6,208,245,32,204,255,32,228,255
150 data 201,0,240,249,201,81,240,45,160,0,169,20
160 data 32,210,255,200,192,6,208,248,240,176,168,41,127
170 data 201,32,176,2,160,46,152,172,2,35,204,0
180 data 35,176,6,238,2,35,32,210,255,208,165,240,163,32,204,255,96
190 data 60,77,79,82,69,62
200 for j=8192 to 8313
210 read x:t=t+x
220 poke j,x
230 next j
240 if t<>15477 then stop
500 print chr$(14):print chr$(157);:l0=pos(0):print:poke 8960,l0
505 print"[147][205]ore: [212]ext [198]ile [210]eader"
510 input "[206]ame of file";f$
520 open 15,8,15
530 open 1,8,3,f$
540 input#15,e,e$,e1,e2:if e<>0 then print e$;e1;e2:stop
550 sys 8192
560 close 1
570 close 15